home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Utilities ƒ / MPW Tools ƒ / Simula4.07 / Simula 4.07ƒ / SInterfaces / macMenu.sim < prev    next >
Encoding:
Text File  |  1989-05-01  |  4.7 KB  |  184 lines  |  [TEXT/MPS ]
  1. % ---------------------------------------------------------------------------
  2. %    Class MACMenu
  3. % 
  4. % In this module you find the programmers interface to Menus.
  5. % It is built on top of the TOOLBOX routines in TOOLBOXmenus.
  6. % For a description of the routines see Inside Macintosh, chapter 11.
  7. %
  8. % 890317/Boris Magnusson
  9. % 890330/Göran Eriksson
  10. %
  11. % ---------------------------------------------------------------------------
  12.  
  13. external class toolboxmenu="::SInterfaces:toolboxmenu";
  14. external class macmenuItem="::SInterfaces:macMenuItem";
  15.  
  16. external text procedure Text_String="::SInterfaces:Text_String";
  17. external text procedure String_Text="::SInterfaces:String_Text";
  18. MacBasicMenu class MACMenu;
  19.     virtual: procedure doMenu is
  20.         procedure doMenu(menuid,item);integer menuid,item;;
  21. begin
  22.     integer NIL=0;
  23.     ref(toolboxmenu) TRAP;
  24.     short integer MenuId;  ! MenuId - the "name" of the Menu ;
  25.     
  26.     procedure doMenu(menuid,item); integer menuid,item;
  27.         inspect findItem(item) do
  28.             doMenu(menuid,item);
  29.     
  30. %        function NewMenu(menuId: INTEGER; menuTitle: Str255): MenuHandle;
  31.     procedure NewMenu(Id, menuTitle);
  32.         short integer Id; text menuTitle;
  33.     begin
  34.         text temp;
  35.         temp:-Text_string(MenuTitle);
  36.         MenuHandle:=TRAP.ToolboxNewMenu(Id, temp);
  37.         MenuId:=Id;
  38.     end;
  39.  
  40. %        FUNCTION GetMenu(rsrcID: INTEGER): MenuHandle;
  41.     Boolean procedure GetMenu(rsrcID);
  42.         short integer rsrcID;
  43.         begin
  44.             short integer  NumberOfItems, i;
  45.             MenuHandle:=TRAP.ToolboxGetMenu(rsrcID);
  46.             MenuId:=rsrcId;
  47.             if MenuHandle<>NIL then
  48.             begin
  49.                 ! insert all item notices in Q !!;
  50.                 NumberOfItems:=CountMItems;
  51.                 for i:= 1 step 1 until NumberOfItems do
  52.                     new ItemNotice.into(itemsQ);
  53.                 getMenu:=true;
  54.             end;
  55.         end;
  56.     
  57. %        PROCEDURE DisposeMenu(menu: MenuHandle);
  58.     PROCEDURE DisposeMenu;
  59.         begin
  60.             TRAP.ToolboxDisposeMenu(MenuHandle);
  61.         end;
  62.     
  63.     procedure registerItem(anItem,index); 
  64.         ref(macMenuitem) anitem; integer index;
  65.     begin
  66.         ref(itemNotice) Notice;
  67.         notice:-ItemNo(index);
  68.         notice.theitem:-anItem;
  69.         anItem.partOf:-this macMenu;
  70.         anItem.MyNo:=index;
  71.     end;
  72.     
  73.     ref(macMenuItem) procedure FindItem(index); integer index;
  74.     begin
  75.         ref(itemNotice) Notice;
  76.         Notice:-itemno(index);
  77.         if Notice =/= none then
  78.             finditem:-Notice.theitem;
  79.     end;
  80.         
  81. %        PROCEDURE AppendMenu(menu: MenuHandle; data: Str255);
  82.     PROCEDURE AppendMenu( data);
  83.         text data;
  84.         begin
  85.             text temp;
  86.             temp:-text_string(data);
  87.             TRAP.toolboxAppendMenu(MenuHandle, temp);
  88.             new itemNotice.into(itemsQ);
  89.         end;
  90.         
  91.         
  92. %        PROCEDURE AddResMenu(menu: MenuHandle; theType: ResType);
  93. %        ResType = PACKED ARRAY [1..4] OF CHAR;
  94.     PROCEDURE AddResMenu( theType);
  95.         text theType;
  96.         begin
  97.             integer theInteger;
  98.             theInteger:=OsType(theType);
  99.             TRAP.toolboxAddResMenu(MenuHandle, theInteger);
  100.             new itemNotice.into(itemsQ);
  101.         end;
  102.  
  103.  
  104. %        PROCEDURE InsertResMenu(menu: MenuHandle; theType: ResType;
  105. %                        afterItem: INTEGER);
  106.     PROCEDURE InsertResMenu(theType, afterItem);
  107.         text theType; short integer afterItem;
  108.         begin
  109.             integer theInteger;
  110.             theInteger:=OsType(theType);
  111.             TRAP.toolboxInsertResMenu(menuHandle, theInteger, afterItem);
  112.             new itemNotice.intoafter(afteritem);
  113.         end;
  114.  
  115.     
  116. %        FUNCTION CountMItems(menu: MenuHandle): INTEGER;
  117.     short integer procedure CountMItems;
  118.         CountMItems:=TRAP.toolboxCountMItems(menuHandle);
  119.  
  120. %        PROCEDURE CalcMenuSize(menu: MenuHandle);
  121.     PROCEDURE CalcMenuSize;
  122.         TRAP.toolboxCountMItems(menuHandle);
  123.  
  124. %    {new 128K ROM}
  125.  
  126. %        PROCEDURE InsMenuItem(theMenu: MenuHandle; itemString: Str255;
  127. %                    afterItem: INTEGER);
  128.     PROCEDURE InsMenuItem(itemString, afterItem);
  129.         text itemString; short integer afterItem;
  130.         begin
  131.             text temp;
  132.             temp:-text_string(itemString);
  133.             TRAP.toolboxInsMenuItem(MenuHandle, temp, afterItem);
  134.             new itemNotice.intoafter(afteritem);
  135.         end;
  136.  
  137.  
  138. %        PROCEDURE DelMenuItem(theMenu: MenuHandle; item: INTEGER);
  139.     PROCEDURE DelMenuItem(item);
  140.         short integer item;
  141.     begin
  142.         TRAP.toolboxDelMenuItem(MenuHandle, item);
  143.         delNotice(item);
  144.     end;
  145.     
  146. ! ------------------- Local routines ----------- ;
  147.     ref(head) itemsQ; ! list of items in this Menu ;
  148.     
  149.     link class ItemNotice; 
  150.     begin 
  151.         ref(macMenuitem) theItem;
  152.         procedure intoafter(no); integer no;
  153.         begin
  154.             ref(link) p;
  155.             P:-itemno(no);
  156.             if p=/=none then follow(p);
  157.         end  -- into after --;
  158.     end;
  159.     ref(link) procedure ItemNo(no); integer no;
  160.     begin
  161.         integer counter; ref(linkage) p;
  162.         p:-itemsQ.first;
  163.         for counter:=2 step 1 until no do
  164.             if p=/=none then p:-p.suc;
  165.         ItemNo:-p;
  166.     end;
  167.     procedure delNotice(no); integer no;
  168.     begin
  169.         inspect itemno(no) do out;
  170.     end;
  171.     
  172.     integer procedure ostype(thetext);text thetext;
  173.     begin ostype:=rank(thetext.getchar)*16R1000000+
  174.         rank(thetext.getchar)*16R10000+
  175.         rank(thetext.getchar)*16R100+
  176.         rank(thetext.getchar);
  177.     end;
  178.     
  179. ! -- init -- ;
  180.  
  181.     itemsQ:- new Head;
  182.     Trap:-new toolboxmenu;
  183.  
  184. end --- Mac Menu --- ;;